home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / func.mean < prev    next >
Text File  |  2007-02-28  |  261b  |  9 lines
  1. 0330 ╞╒╬├ MEAN(╥┼╞ ARRAY()) ├╠╧╙┼─
  2. 0340   ╔═╨╧╥╘ SIGMA,LAST
  3. 0350   // RETURNS THE MEAN VALUE OF THE
  4. 0360   // ELEMENTS OF ANY NUMERICAL
  5. 0370   // ARRAY WHOSE LOWEST ELEMENT
  6. 0380   // IS NUMBERED (1).
  7. 0390   ╥┼╘╒╥╬ SIGMA(ARRAY())/LAST(ARRAY())
  8. 0400 ┼╬─╞╒╬├ MEAN
  9.